home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d3
/
dbmail.arc
/
ML0207.PRG
< prev
next >
Wrap
Text File
|
1988-06-18
|
2KB
|
114 lines
NOTE ML0207 - PRINT MAILING LABELS, 1 UP, 3"x1" 5/14/85
SET EJECT OFF
SET TALK OFF
?
?
? 'Prepare Printer to Print Labels. Set Printer Switches to Print 6 Lines per Inch.'
? ' Press any Key to Continue.'
wait
store ' ' to bl
store f to exit
do while .not.exit
?
accept 'Enter (T) to print test pattern (Q) to quit <cr> to print labels ' to sel
if !(sel)='Q'
release bl,exit
return
endif
store !(sel)#'T' to exit
if .not.exit
set print on
SET CONSOLE OFF
? bl+'Test Line One'
? bl+'Test Line Two'
? bl+'Test Line Three'
? bl+'Test Line Four'
? bl+'Test Line Five'
?
set print off
SET CONSOLE on
endif
enddo
release sel,exit
USE MLSUB2
GOTO TOP
set print on
SET CONSOLE OFF
DO WHILE .NOT. EOF
STORE L5#' '.AND.L5#'" "' TO OK
STORE L6#' '.AND.L6#'" "' TO OK2
IF OK
STORE TRIM(L5) TO WA
IF WA='"'
? BL+$(WA,2, LEN(WA)-2)
ELSE
? BL+WA
ENDIF
IF OK2
STORE TRIM(L6) TO WA
IF WA='"'
?? ' '+$(WA,2, LEN(WA)-2)
ELSE
?? ' '+WA
ENDIF
ENDIF
ELSE
IF OK2
STORE TRIM(L6) TO WA
IF WA='"'
? BL+$(WA,2, LEN(WA)-2)
ELSE
? BL+WA
ENDIF
ENDIF
ENDIF
STORE OK .OR. OK2 TO OK
IF L1#' '
STORE TRIM(L1) TO WA
? BL+$(WA,2, LEN(WA)-2)
ELSE
?
ENDIF
IF L2#' '
STORE TRIM(L2) TO WA
? BL+$(WA,2, LEN(WA)-2)
ELSE
?
ENDIF
IF L3=' '
?
ELSE
STORE TRIM(L3) TO WA
? BL+$(WA,2, LEN(WA)-2)
ENDIF
IF L4=' '
?
ELSE
STORE TRIM(L4) TO WA
? BL+$(WA,2, LEN(WA)-2)
ENDIF
IF .NOT.OK
?
ENDIF
?
SKIP
ENDDO
use
release bl,OK,WA,OK2
SET CONSOLE ON
SET FORMAT TO SCREEN
SET PRINT OFF
RETURN
DIF
?
SKIP
ENDDO
use
release bl,OK,WA,OK2
SET CONSOLE ON
SET FORMAT TO SCREEN
SET PRINT OFF
RETURN